home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pctj8407.arc
/
UCLEXA.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-09-14
|
2KB
|
37 lines
1000 'COM/ADD ROW 2,3 4 [Add rows 2 and 3 and put in row 4]
1005 'COM/DIV COL 3,1 6 [Divide column 3 by 1 and put in 6]]
1010 'COM/MAX ROW 5,4 6 [Put in row 6 the max of row 5 and 4]
1015 ' (Available operations: ADD, SUB, MUL, DIV, MIN, and MAX)
1020 '
2000 'DIS ALL [Display all elements]
2005 'DIS ELE 5,2 [Display element in row 5, column 2]
2010 'DIS,ROW 2-5 [Display elements in rows 2 to 5]
2015 'DIS,COL,7 [Display elements in column 7]
2020 'DIS ROW 2-4 COL 3-7 [Display rows 2 to 4, columns 3 to 7]
2025 'DIS FOR [Display the current format]
2030 '
3000 'EXA HEL [Examples of the command HELP]
3005 'EXA NEW [Examples of the command NEW]
3010 'EXA ALL [Examples of all commands]
3015 '
4000 'GET A [Get data set A in DATA statements]
4005 'GET TAX.DAT [Get data from file TAX.DAT]
4010 '
5000 'HEL COM [Show the names of all commands]
5005 'HEL ARI [Describe the arithmetic operations]
5010 'HEL ALL [Show all the HELP messages]
5015 '
6000 'NEW ELE 3,2 7 [Set element in row 3 column 2 to 7]
6005 'NEW ELE [Prompt for setting new elements]
6010 'NEW ROW 3-5 [Prompt for new elelments in rows 3 to 5]
6015 'NEW COL 1 [Prompt for new elements in column 1]
6020 'NEW ALL [Prompt for all new elements]
6025 'NEW FOR ###.# [New format is ###.##]
6030 'NEW FOR "#,###.##" [New format is #,###.##}
6035 '
7000 'SAV FINAL.DAT [Save data in file FINAL.DAT]
7005 '
8000 'STOP [Stop running of the program]
8005 'STO ABC [Chain to program ABC]
9999 '